ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №6
ЛАБОРАТОРНА РОБОТА № 6
Тема: Структура програми. Оператори мови Turbo Pascal.
Мета: Вивчення структури програми та операторів TP7. Застосування операторів мови до програмування різних алгоритмічних конструкцій.
ЗАВДАННЯ ДО РОБОТИ:
Скласти програми на мові Pascal на основі алгоритмів, побудованих для розв'язування задач в лабораторних роботах №№3-5.
1.Обчислити значення функції:
2. Обчислити значення функції: .
3. Дано три числа. Піднести до квадрату ті з них, значення яких від’ємні.
4. Для N чисел, що послідовно вводяться, визначити, чи розташовані вони в зростаючому порядку.
5. Обчислити нескінчену суму із заданою точністю (). Задана точність досягнута, якщо .
6. Знайти найбiльший спiльний дiльник трьох заданих натуральних чисел M, N, K.
ХІД РОБОТИ
Обчислити значення функції: .
/
program v1;
var x,y:real;
begin
writeln('x=');
readln(x);
y:=(sqr(x)*sqr(x)*x)*sin(sqr(x)*sqr(x)-3*sqr(x));
writeln('y=',y:10:4);
end.
/
Обчислити значення функції: .
/
program v1;
var x,y,z:real;
begin
writeln('x');
readln(x);
writeln('y');
readln(y);
writeln('z');
readln(z);
if x=z then y:=0;
if x<>z then y:=(x+3*y+z)/(sqr(x-z)*sqr(x-z)*sqr(x-z)*(x-z));
writeln('y=',y:10:20);
end.
/
/
3.Дано три числа. Піднести до квадрату ті з них, значення яких від’ємні.
/
program v1;
var a,b,c,x,y,z:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if a<0 then x:=a*a
else x:=0;
if b<0 then y:=b*b
else y:=0;
if c<0 then z:=c*c
else z:=0;
writeln('x=', x:6);
writeln('y=', y:6);
writeln('z=', z:6);
end.
/
4. Для N чисел, що послідовно вводяться, визначити, чи розташовані вони в зростаючому порядку.
/
Program v1;
var N, i, value, buf: integer;
begin
Writeln('Enter N :');
Readln(N);
Readln(buf);
for i:=1 to N-1 do
begin
Readln(value);
if(buf>value) then
begin
Writeln('Not ');
break;
end;
buf:=value;
end;
Writeln('Good!');
end.
//
5. Обчислити нескінчену суму із заданою точністю (). Задана точність досягнута, якщо .
/
program v1;
var s,c,E:real;
i:integer;
begin
writeln('E=');
readln(E);
S:=0;
i:=1;
repeat
begin
c:=s;
S:=c+(1)/(i*(i+1));
end;
until c>=E;
writeln('s=',s:10:10);
end.
/
6. Знайти найбiльший спiльний дiльник трьох заданих натуральних чисел M, N, K.
/
program v1;
var M,N,K: longint;
function nod(M, N: longint): longint;
begin
while (M<>0) and (N<>0) do
begin
if M>N then M:=M mod N else N:=N mod M;
nod := M + N;
end;
end;
begin
writeln('M=');
read(M);
writeln('N=');
read(N);
writeln('k=');
read(K);
writeln(nod(nod(M,N),K));
end.
/
Висновок
Отже, за допомогою даної лабораторної роботи я вивчила структуру програми та оператори TP7. Навчилася застосовувати оператори мови до програмування різних алгоритмічних конструкцій.
